home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / plain / contrib / calendar / feasts.tex < prev    next >
Encoding:
Text File  |  1993-09-06  |  969 b   |  33 lines
  1. %%
  2. %%    FILE feasts.tex
  3. %%
  4. % Date of Easter for year \Year.
  5. % Value returned in \date
  6. \def\easter{{\count0=\Year\count1=\count0
  7.  \divide\count0 by19\multiply\count0 by19
  8.  \advance\count1 by-\count0
  9.  \advance\count1 by 1 %     Golden number
  10.  \count2=\count1\multiply\count2 by11
  11.  \advance\count2 by18\count0=\count2
  12.  \divide\count0 by30\multiply\count0 by30
  13.  \advance\count2 by-\count0 %       Epact
  14.  \ifnum\count2=25\ifnum\count1>11
  15.   \count2=26 \fi\fi
  16.  \ifnum\count2=24 \count2=25\fi
  17.  \advance\count2 by-44
  18.  \multiply\count2 by-1
  19.  \ifnum\count2<21 \advance\count2 by30\fi
  20.  \Month=3\Day=0\dayno\global\advance\date
  21.  by\count2}\snextday0}
  22. % (local)
  23. \def\includefeasts{%
  24.  \message{Including feasts}
  25.  \easter\evday[Easter Sunday]
  26.  {\advance\date by49\evday[Whitsun]}
  27.  {\advance\date by-7\evday[Palm Sunday]}
  28.  {\advance\date by-46\evday[Ash Wendsday]
  29.   \advance\date by-3\evday[Carnival]}
  30.  \Month=1\Day=1\dayno\snextday0
  31.   \evday[Epiphany]
  32.  \event 25/12[\holy Christmas]}
  33.